home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aak.d64 / music menu (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  72 lines
  1. 85 LC=646:SR=53281:BD=53280:UC=53272:IFPEEK(764)THEN700
  2. 88 POKESR,1:POKEBD,3:POKELC,2
  3. 90 POKEUC,21:PRINT"[147]":PRINT"S U N D A Y   E V E N I N G   S O N G S
  4. 92 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  5. 93 POKELC,6:PRINTTAB(19)"[219]
  6. 95 [153][163]9)"PROGRAMMED BY RELIGIOUS
  7. 100 PRINTTAB(19)"OF":PRINTTAB(5)"THE ORDER OF THE MOTHER OF GOD
  8. 105 [151]LC,10:[153][163]8)"MUSIC (INTERRUPT-DRIVEN)
  9. 107 PRINTTAB(14)"BY MEANS OF:
  10. 108 [151]LC,5:[153]"MUSIC ASSEMBLER 64(C)NICK SULLIVAN
  11. 110 PRINTTAB(11)"C/O THE TRANSACTOR
  12. 115 [153]"500 STEELES AVE, MILTON, ONT. L9T 3P7":SN[178]1
  13. 118 [129]AA[178]1[164]2000:[130]
  14. 120 [151]646,11:[153][163]7)"PRESS SPACEBAR TO CONTINUE":[151]198,0
  15. 125 KY[178][194](197)
  16. 130 [139]KY[178]60[167][145]SN[137]200,500,700
  17. 135 [139]KY[179][177]60[167]125
  18. 200 [153]"LOAD":[151]LC,2
  19. 205 [153][163]12)"ALSO AVAILABLE:":[151]LC,6:[129]AA[178]1[164]1500:[130]
  20. 210 [151]UC,23:[153]"LOAD":[153][163]3)"(null)CLOSEVALCLOSE CLOSE(null)CLOSERIGHT$CLOSE(null) CHR$   (null)CLOSE(null)CLOSE(null)CLOSECLOSEASCCLOSEATNCLOSERIGHT$CLOSE(null) LEFT$
  21. 215 PRINT"[193] [195]OURSE OF [205]USICAL [201]NSTRUCTION
  22. 220 [153][163]6)"IN PEEKASIC LENHRISTIAN STR$OCTRINE
  23. 230 PRINTTAB(19)"+
  24. 235 [151]LC,9:[153]"(null)WO STR$ISKS-(null)WELVE LENHAPTERS-(null)WELVE ATNIRS
  25. 240 PRINTTAB(6)"[198]OR [195]-64 - [200]OME OR [195]LASSROOM
  26. 245 [151]LC,5:[153][163]2)"VALACH LENHAPTER HAS: 1) 3 TO 11 VERSES;
  27. 250 PRINTTAB(2)"2) [204]EXICONS EXPLAINING WORDS & TERMS;
  28. 255 [153][163]2)"3) (null)UESTIONNAIRE/ATN HIGH SCORE EARNS:
  29. 260 PRINTTAB(2)"4) [214]IEW OF [200]IGH-[210]ESOLUTION [208]ICTURE.
  30. 270 [151]LC,6:[153]"LENLASSROOM PROVED/(null)OUNGSTERS FROM 8-16.
  31. 272 PRINTTAB(10)"-------------------
  32. 275 [153]"ATNDULTS, TOO, HAVE SHOWN ENTHUSIASM
  33. 280 PRINT"[198]OR THIS COURSE IN BASIC DOCTRINE.":SN=2:FORAA=1TO2000:NEXT
  34. 285 POKE646,11:PRINTTAB(7)"[208][210][197][211][211][160][211][208][193][195][197][194][193][210][160][212][207][160][195][207][206][212][201][206][213][197]":POKE198,0:GOTO125
  35. 500 PRINT"[147]":POKE646,6:PRINTTAB(16)"[193]DDRESS:
  36. 505 [153][163]8)"(null)ONASTERY OF THE ATNPOSTLES
  37. 510 PRINT"[198]RONTIER [210]OAD, [195]HURUBUSCO, [206].[217]. 12923
  38. 520 [153][163]9)"$27.00/ATNM - $35.00/LENAN
  39. 530 FORAA=1TO5000:NEXT
  40. 600 PRINT"[147]":POKE53272,23:POKE646,11:PRINTTAB(14)"[208][204][197][193][211][197][160][206][207][212][197]:
  41. 610 [153][163]5)"RIGHT$F SOME  PART OF  THIS PROGRAM
  42. 615 PRINTTAB(5)"DOES NOT RUN PROPERLY, TRY RE-
  43. 620 [153][163]5)"SETTING YOUR COMPUTER (TURN IT
  44. 625 PRINTTAB(5)"OFF  AND ON AGAIN).   [208]ROBABLY
  45. 630 [153][163]5)"YOU  HAVE  BEEN  RUNNING  PRO-
  46. 635 PRINTTAB(5)"GRAMS WHICH  USE  MEMORY LOCA-
  47. 640 [153][163]5)"TIONS  CONFLICTING WITH  THOSE
  48. 645 PRINTTAB(5)"USED BY  THIS PROGRAM.":PRINTTAB(15)"[212]HANK YOU!":SN=3
  49. 650 FORAA=1TO2000:NEXT:PRINTTAB(7)"[208][210][197][211][211][160][211][208][193][195][197][194][193][210][160][212][207][160][195][207][206][212][201][206][213][197]":POKE198,0
  50. 655 GOTO125
  51. 700 PRINT"[147]":POKE53281,1:POKE646,6:POKE53280,12:POKE53272,21
  52. 710 PRINTTAB(11)"SUNDAY EVENING SONGS
  53. 720 [153][163]11)"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO
  54. 730 PRINT"(1) PUER NOBIS NASCITUR":PRINT"(CANON FOR THREE VOICES)
  55. 740 [153]"(2) O SACRED HEAD (HYMN FOR LENT)
  56. 750 PRINT"(3) THE FOURTH COMMANDMENT
  57. 760 [153][163]18)"+ + +
  58. 770 PRINT"YOUR CHOICE:":PRINT"[145]";:PRINTTAB(16);
  59. 780 POKE198,0:POKE204,0:POKE207,0
  60. 790 GETA$:IFA$=""THEN790
  61. 800 A=VAL(A$)
  62. 810 IFA>3ORA<1THEN790
  63. 820 PRINT"[157]"A:POKE207,0:POKE204,1
  64. 830 IFA=1THENPRINTTAB(7)"PUER NOBIS NASCITUR..LOADING"
  65. 840 IFA=2THENPRINTTAB(8)"O SACRED HEAD...LOADING
  66. 850 [139]A[178]3[167][153]"THE FOURTH COMMANDMENT...LOADING
  67. 860 POKE764,1:ONAGOTO870,880,890
  68. 870 PRINTCHR$(5)"";"LOAD";CHR$(34);"PUER NOBIS";CHR$(34);",8":GOTO900
  69. 880 PRINTCHR$(5)"";"LOAD";CHR$(34);"O SACRED HEAD";CHR$(34);",8":GOTO900
  70. 890 PRINTCHR$(5)"";"LOAD";CHR$(34);"4TH COM";CHR$(34);",8"
  71. 900 PRINT"RUN":POKE198,3:POKE631,19:POKE632,13:POKE633,13
  72.